home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / treeview.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  27.9 KB  |  645 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <% option explicit %>
  3. <!--#include file="include/wmsConstants.inc"-->
  4. <!--#include file="include/wmsLocStrings.inc"-->
  5. <!--#include file="include/wmsCommon.inc"-->
  6. <!--#include file="include/wmsServerHash.inc"-->
  7. <!--#include file="include/wmsconnect.inc"-->
  8. <!--#include file="include/wmsHeader.inc"-->
  9. <!--#include file="include/wmsRefresh.inc"-->
  10. <% 
  11. '+-------------------------------------------------------------------------
  12. '
  13. '  Microsoft Windows Media
  14. '  Copyright (C) Microsoft Corporation. All rights reserved.
  15. '
  16. '  File:       TreeView.asp
  17. '
  18. '  Contents:
  19. '
  20. '--------------------------------------------------------------------------
  21. on error resume next
  22.  
  23. Dim i
  24. Dim objPP
  25. Dim dwNumPP
  26. Dim strServerName
  27. Dim strPPName
  28. Dim strPPID
  29. Dim strAltText
  30. Dim strConvertedPPName
  31. Dim dwPPType
  32. Dim dwPPStatus
  33. Dim bPush
  34. Dim bBroadcast
  35. Dim bStarted
  36. Dim bStreamEnded
  37. Dim bAllowingConnections
  38. Dim bInError
  39. Dim bCacheEnabled
  40. Dim dwTabIndex
  41. Dim objPluginCollection
  42. Dim objEachPlugin
  43. Dim dwPluginCount
  44. Dim dwProductType
  45. Dim bRunningDotNetAdvServer
  46.  
  47. dwTabIndex = 1
  48. bRunningDotNetAdvServer = FALSE
  49.  
  50. ConnectToServer
  51.  
  52. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  53.     Response.Redirect( "include/server_stopped.asp?server=" & qs("server") )
  54. elseif( empty = g_objServer ) then
  55.     if( 0 = Len( qs( "redir" ) ) ) then
  56.         ' avoid infinite loop
  57.         Response.Redirect( "treeview.asp?server=" & g_strQueryStringServer & "&redir=true" )
  58.     end if
  59. end if
  60.  
  61. strServerName = g_objServer.Name
  62. Response.Expires = -10000
  63.  
  64. on error resume next
  65. dwProductType = g_objServer.OSProductType
  66. if( 0 <> err.number ) then
  67.     bRunningDotNetAdvServer = FALSE
  68.     err.Clear
  69. else
  70.     bRunningDotNetAdvServer = CBool( WMS_OS_PRODUCT_ADVANCED and dwProductType )
  71. end if
  72. on error resume next
  73.  
  74. ' Connect to the proxy plug-in, if it exists, and determine if it's enabled
  75. set objPluginCollection = g_objServer.CacheProxy
  76. if( FALSE = IsEmpty( objPluginCollection ) ) then
  77.     dwPluginCount = objPluginCollection.Count
  78. else
  79.     dwPluginCount = 0
  80. end if
  81.  
  82. bCacheEnabled = FALSE
  83. if( 0 < dwPluginCount ) then
  84.     For i = 0 to dwPluginCount - 1
  85.         Set objEachPlugin = objPluginCollection(i)
  86.         if( 0 <> ( WMS_PLUGIN_ENABLED and objEachPlugin.status ) ) then
  87.             bCacheEnabled = TRUE
  88.             Exit For
  89.         end if
  90.     next
  91. end if
  92.  
  93.  
  94. '////////////////////////////////////////////////////////////////
  95. Function FormatStatusString( strPPName, strPPStatus )
  96.     Dim strFirstReplacement 
  97.     strFirstReplacement = Replace( L_PPPSTATTEMPL_TEXT, "_P_", Server.HTMLEncode( trim( strPPName ) ), 1 )
  98.     FormatStatusString = Replace( strFirstReplacement, "_S_", Server.HTMLEncode( trim( strPPStatus ) ), 1 )
  99. End Function
  100.  
  101.  
  102. '////////////////////////////////////////////////////////////////
  103. Function InsertPPName( strPPName, strTemplate )
  104.     InsertPPName = Replace( strTemplate, "___", "'" & trim( strPPName ) & "'", 1 )
  105. End Function
  106.  
  107.  
  108. '////////////////////////////////////////////////////////////////
  109. Function BcastPPStartedStreamEnded( byRef objPP )
  110.     BcastPPStartedStreamEnded = FALSE
  111.     
  112.     '
  113.     ' Too heavy-handed on the server.  Don't do this until the server implements a new bcast objPP status flag!
  114.     '
  115.     Exit Function
  116.  
  117.     Dim objSharedPlaylist
  118.     Dim objCurrentEntry
  119.     Dim objActiveMedia
  120.     Dim strNowPlaying
  121.     Dim enumFileType
  122.     Dim strPPPath
  123.  
  124.     err.clear
  125.     on error resume next
  126.  
  127.     strPPPath = objPP.path
  128.         
  129.     if( ( 0 = StrComp( strPPPath.Left( 6 ), "mcast:" ) ) or _
  130.         ( 0 = StrComp( strPPPath.Right( 4 ), ".nsc" ) ) ) then
  131.         enumFileType = WMS_FILE_STREAM_FORMAT
  132.     else
  133.         enumFileType = g_objServer.FileType( strPPPath )
  134.     end if
  135.     
  136.     if( ( 0 = err.Number ) and ( WMS_FILE_DIRECTORY = enumFileType ) or ( WMS_FILE_PLAYLIST = enumFileType ) )then        
  137.         Set objSharedPlaylist = objPP.SharedPlaylist
  138.         if( IsEmpty( objSharedPlaylist ) or ( 0 <> err.number ) )then
  139.             BcastPPStartedStreamEnded = TRUE
  140.         else
  141.             Set objCurrentEntry = objSharedPlaylist.CurrentPlaylistEntry
  142.             strRuntimeID = objCurrentEntry.GetAttribute( "UniqueRuntimeID" )
  143.             if( 0 <> err.number )then
  144.                 BcastPPStartedStreamEnded = TRUE
  145.             else
  146.                 Set objActiveMedia = objSharedPlaylist.CurrentMediaInformation
  147.                 if( 0 <> err.number )then
  148.                     BcastPPStartedStreamEnded = TRUE
  149.                 else
  150.                     strNowPlaying = objActiveMedia.GetProperty( "WMS_CONTAINER_LOG_PHYSICAL_URL","" )
  151.                     if( ( 0 <> err.number ) or ( 0 = Len( strNowPlaying ) ) )then
  152.                         BcastPPStartedStreamEnded = TRUE
  153.                     end if
  154.                 end if
  155.             end if
  156.         end if
  157.     end if
  158.  
  159.     err.clear
  160.     objSharedPlaylist = nothing
  161.     objCurrentEntry = nothing
  162.     objActiveMedia = nothing
  163.     strNowPlaying = nothing
  164.  
  165. End Function
  166.  
  167.  
  168. '////////////////////////////////////////////////////////////////
  169. Function AtLeastOneError()
  170.     AtLeastOneError = FALSE
  171.     
  172.     Dim dwNumMessages
  173.     Dim dwNumMessagesDisplayed
  174.     Dim objDiag
  175.     Dim objMessage
  176.     Dim msgType
  177.  
  178.     set objDiag = g_objServer.DiagnosticEvents
  179.     dwNumMessages = objDiag.Count
  180.     i = 0
  181.     dwNumMessagesDisplayed = 0
  182.  
  183.     i = 0
  184.     While ( i < dwNumMessages )
  185.         i = i + 1
  186.         set objMessage = objDiag.Item( i - 1 )
  187.         msgType = objMessage.Type
  188.         if ( ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_ERROR = msgType ) or _
  189.             ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_ERROR = msgType ) ) then
  190.             AtLeastOneError = TRUE
  191.             Exit Function
  192.         end if
  193.     Wend
  194. End Function
  195.  
  196. '////////////////////////////////////////////////////////////////
  197. Sub SelectIcon( bBroadcast, bIsPush, bStarted, bStreamEnded, bAllowingConnections, bInError )
  198.     if( bBroadcast ) then
  199.         if( bIsPush ) then
  200.             if( bStarted and not bAllowingConnections ) then
  201.                 Response.Write( "img/BroadcastPushDeny_16.gif" )
  202.             elseif( bInError ) then
  203.                 Response.Write( "img/BroadcastPushCritical_16.gif" )
  204.             else
  205.                 if( bAllowingConnections ) then
  206.                     if( bStreamEnded ) then
  207.                         Response.Write( "img/BroadcastPushStreamEnd_16.gif" )
  208.                     elseif( bStarted ) then
  209.                         Response.Write( "img/broadcast_push16.gif" )
  210.                     else
  211.                         Response.Write( "img/BroadcastPushStop_16.gif" )
  212.                     end if
  213.                 else
  214.                     Response.Write( "img/BroadcastPushDeny_16.gif" )
  215.                 end if
  216.             end if
  217.         else
  218.             if( TRUE = bInError ) then
  219.                 Response.Write( "img/broadcast_error16.gif" )
  220.             elseif( ( TRUE = bStarted ) and ( FALSE = bAllowingConnections ) ) then
  221.                 Response.Write( "img/broadcast_deny16.gif" )
  222.             else
  223.                 if( bStreamEnded ) then
  224.                     Response.Write( "img/broadcast_streamended_16.gif" )
  225.                 elseif( bStarted ) then
  226.                     Response.Write( "img/broadcast_icon16.gif" )
  227.                 else
  228.                     Response.Write( "img/broadcast_stop16.gif" )
  229.                 end if
  230.             end if
  231.         end if
  232.     else
  233.         if( bInError ) then
  234.             Response.Write( "img/ondemand_error16.gif" )
  235.         elseif( FALSE = bAllowingConnections ) then
  236.             Response.Write( "img/ondemand_deny16.gif" )
  237.         else
  238.             Response.Write( "img/ondemand_icon16.gif" )
  239.         end if
  240.     end if
  241. End Sub
  242.  
  243. WriteHTMLHeader( g_strDecodedServerName ) 
  244. WriteRefreshMetaTag
  245. %>
  246. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  247.  
  248. <script language="JavaScript">
  249. <!--
  250. /*@cc_on @*/
  251. var g_bInitialized = false;
  252. var g_strLastElement = new String("");
  253. <% if brMSIE = g_dwBrowserType then %>
  254. var g_bMutexInUse = false;
  255.  
  256. //////////////////////////////////////////////////
  257. function Initialized()
  258. {
  259.     return( g_bInitialized );
  260. }
  261.  
  262. //////////////////////////////////////////////////
  263. function SetInitialized()
  264. {
  265.     <% jsTRY %>
  266.         g_bInitialized=true;
  267.  
  268. <% if brMSIE = g_dwBrowserType then %>
  269.         var framesetHeader;
  270.         framesetHeader = window.parent.parent.parent;
  271.         if( framesetHeader )
  272.         {
  273.             framesetHeader.SetTreeReady();
  274.         }
  275. <% end if %>
  276.     <% jsCATCH %>
  277. }
  278.  
  279. //////////////////////////////////////////////////
  280. function RequestHilight()
  281. {
  282.     <% jsTRY %>
  283.         if( g_bMutexInUse )
  284.         {
  285.             window.setTimeout( "RequestHilight();", 400, "JavaScript" );
  286.         }
  287.     
  288.         var childFrame;
  289.         childFrame = window.parent.parent.frames[ "frameDetails" ];
  290.         if( childFrame )
  291.         {
  292.             if( childFrame.HilightCurrentNode )
  293.             {
  294.                 childFrame.HilightCurrentNode();
  295.             }
  296.             else
  297.             {
  298.                 if( childFrame.UpdateTreeViewSelection )
  299.                 {
  300.                     childFrame.UpdateTreeViewSelection();
  301.                 }
  302.             }
  303.         }
  304.     <% jsCATCH %>
  305. }
  306.  
  307.  
  308. //////////////////////////////////////////////////
  309. function ResetAllEntries()
  310. {
  311.     <% jsTRY %>
  312.     if( g_bMutexInUse )
  313.     {
  314.         return;
  315.     }
  316.     
  317.     g_bMutexInUse = true;
  318.     if( 0 < g_strLastElement.length )
  319.     {
  320.         document.all[ g_strLastElement ].style.color = "#6699FF";
  321.         document.all[ g_strLastElement ].style.backgroundColor = "#FFFFFF";
  322.     }
  323.     g_bMutexInUse = false;
  324.     <% jsCATCH %>
  325. }
  326.  
  327. //////////////////////////////////////////////////
  328. function SetSelectedNode( szNodeName )
  329. {
  330.     <% jsTRY %>
  331.         if( g_bMutexInUse )
  332.         {
  333.             window.setTimeout( "SetSelectedNode( \"" + szNodeName + "\" );", 500, "JavaScript" );
  334.             return;
  335.         }
  336.     
  337.         if( ! g_bInitialized )
  338.         {
  339.             var szCall = new String( "SetSelectedNode( \"" );
  340.             szCall += szNodeName
  341.             szCall += "\");";
  342.             setTimeout( szCall, 1000, "JavaScript" );
  343.         }
  344.     
  345.         ResetAllEntries();
  346.             
  347.         var theLabel;
  348.         var theImage;
  349.     
  350.         g_bMutexInUse = true;
  351.         theLabel = document.all[ szNodeName ];
  352.         if( theLabel )
  353.         {
  354.             theLabel.style.color="#FFFFFF";
  355.             theLabel.style.backgroundColor="navy";
  356.         }
  357.         g_strLastElement = szNodeName;
  358.     
  359.         g_bMutexInUse = false;
  360.     <% jsCATCH %>
  361. }
  362. <% end if %>
  363. -->
  364. </script>
  365. </head>
  366. <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0" marginwidth="0" marginheight="0" <% if brMSIE = g_dwBrowserType then %>onLoad="JavaScript:SetInitialized();RequestHilight();"<% end if %> oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  367. <table height="100%" width="100%" height="100%" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0" hspace="0" vspace="0" cols="1" rows="<% if FALSE = g_bSecureConnection then %>5<% else %>4<%end if %>">
  368. <tr valign="top" align="top" width="100%" height="98%" bgcolor="#FFFFFF">
  369.     <td valign="top" bgcolor="#FFFFFF">
  370.         <img src="pages/img/spacer_.gif" height="3" width="4">
  371.         <table valign="top" border="0" cellpadding="0" cellspacing="0" hspace="0" vspace="0" style="position:absolute;top:3;left:4" bgcolor="#FFFFFF" bgcolor="#000000">
  372.         <tr valign="top" bgcolor="#FFFFFF">
  373.             <td align="left" valign="top" colspan="3" bgcolor="#FFFFFF">
  374.                 <table border="0" class="treeview" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  375.                 <tr>
  376.                     <td width="16" align="left">
  377.                         <a name="server_" href="pages/server_status.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"><%
  378.                         Dim strServerIconName
  379.                         Dim dwServerStatus
  380.                         
  381.                         dwServerStatus = g_objServer.Status
  382.                         strServerIconName = "server_icon16.gif"
  383.                         
  384.                         if( WMS_SERVER_ERROR_CRITICAL = dwServerStatus )then
  385.                             strServerIconName = "server_error16.gif"
  386.                         elseif FALSE = g_objServer.AllowClientsToConnect then
  387.                             strServerIconName = "server_deny16.gif"
  388.                         end if
  389.                         
  390.                         %><img src="img/<%= strServerIconName %>" border="0" alt="<%= Server.HTMLEncode( L_CONFIGSERVER_TEXT ) %>" title="<%= Server.HTMLEncode( L_CONFIGSERVER_TEXT ) %>"></a>
  391.                     </td>
  392.                     <td align="left" width="4">
  393.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  394.                     </td>
  395.                     <td width="16" colspan="3" align="left">
  396.                         <div class="treeview" nowrap>
  397.                             <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %> title="<%= SpacesToNonbreak( DashesToNonbreak( Server.HTMLEncode( strServerName ) ) ) %>" name="server" href="pages/server_status.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"> <% 
  398.                             'work around an ie6 bug that would have a server name containing dashes broken into multiple lines
  399.                                 Response.Write( SpacesToNonbreak( DashesToNonbreak( Server.HTMLEncode( strServerName ) ) ) ) %> </a>
  400.                         </div>
  401.                     </td>
  402.                     <td align="right" width="100%">
  403.                          
  404.                     </td>
  405.                 </tr>
  406.                 </table>
  407.             </td>
  408.         </tr>
  409.         <tr>
  410.             <td align="left" valign="top" colspan="3">
  411.                 <table class="treeview" border="0" cellspacing="0" cellpadding="0">
  412.                 <tr>
  413.                     <td width="16">
  414.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  415.                     </td>
  416.                     <td width="16" nowrap>
  417.                         <a name="diag_" href="pages/server_diag.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"><%
  418.                         %><img src="img/trouble<% if AtLeastOneError() then %>Checked<% end if %>_icon16.gif" border="0" height="16" width="16" alt="<%= Server.HTMLEncode( L_DIAGNOSTICNODETITLE_TEXT ) %>" title="<%= Server.HTMLEncode( L_DIAGNOSTICNODETITLE_TEXT ) %>"></a>
  419.                     </td>
  420.                     <td align="left" width="4">
  421.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  422.                     </td>
  423.                     <td width="16" colspan="2" nowrap>
  424.                         <div class="treeview" nowrap>
  425.                             <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %>title="<%= SpacesToNonbreak( Server.HTMLEncode( L_DIAGNOSTICNODETITLE_TEXT ) ) %>" name="diag" href="pages/server_diag.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"> <%
  426.                                 Response.Write( SpacesToNonbreak( Server.HTMLEncode( L_DIAGNOSTICNODETITLE_TEXT ) ) ) %> </a>
  427.                         </div>
  428.                     </td>
  429.                 </tr>
  430.                 </table>
  431.             </td>
  432.         </tr>
  433. <% if bRunningDotNetAdvServer then %>
  434.         <tr>
  435.             <td align="left" valign="top" colspan="3" nowrap>
  436.                 <table class="treeview" border="0" cellspacing="0" cellpadding="0">
  437.                 <tr>
  438.                     <td width="16">
  439.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  440.                     </td>
  441.                     <td width="16" nowrap>
  442.                         <a name="cache_" href="pages/cache_getstarted.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"><%
  443.                         %><img src="img/cacheproxy16.gif" border="0" height="16" width="16" alt="<%= Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) %>" title="<%= Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) %>"></a>
  444.                     </td>
  445.                     <td align="left" width="4">
  446.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  447.                     </td>
  448.                     <td width="16" colspan="2" nowrap>
  449.                         <div class="treeview" nowrap>
  450.                             <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %> nowrap title="<%= SpacesToNonbreak( Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) )%>" name="cache" href="pages/cache_getstarted.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"> <%
  451.                                 Response.Write( SpacesToNonbreak( Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) ) ) %> </a>
  452.                         </div>
  453.                     </td>
  454.                 </tr>
  455.                 </table>
  456.             </td>
  457.         </tr>
  458.         <% if bCacheEnabled then
  459. '******************************* begin cache / proxy *******************************
  460.             
  461.             dwNumPP = g_objServer.PublishingPoints.Count
  462.             
  463.             i = 0
  464.             for i = 0 to dwNumPP - 1
  465.                 set objPP = g_objServer.PublishingPoints.Item( i )
  466.                 dwPPType = objPP.Type
  467.  
  468.                 if( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_ON_DEMAND = dwPPType ) or ( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_BROADCAST = dwPPType ) then
  469.                     strPPName = trim( objPP.Name )
  470.                     strPPID = objPP.ID
  471.                     strAltText = ""
  472.                     
  473.                     bAllowingConnections = CBool( objPP.AllowClientsToConnect )
  474.                     
  475.                     if( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_ON_DEMAND = dwPPType ) then
  476.                         bStreamEnded = FALSE
  477.                         bStarted = FALSE
  478.                         bInError = CBool( WMS_PUBLISHING_POINT_ERROR_CRITICAL and objPP.Status ) or _
  479.                                    CBool( WMS_PUBLISHING_POINT_ERROR and objPP.Status )
  480.                         strAltText = InsertPPName( strPPName, L_CACHEPROXYPP_TEXT )
  481.                     else
  482.                         bStarted = TRUE 'CBool( WMS_BROADCAST_PUBLISHING_POINT_STARTED and objPP.BroadcastStatus )
  483.                         bInError = CBool( WMS_PUBLISHING_POINT_ERROR_CRITICAL and objPP.Status ) or _
  484.                                    CBool( WMS_PUBLISHING_POINT_ERROR and objPP.Status )
  485.                         bStreamEnded = FALSE
  486.                         strAltText = InsertPPName( strPPName, L_CACHEPROXYPP_TEXT )
  487.                     end if
  488.             %>
  489.         <tr>
  490.             <td align="left" valign="top" colspan=4>
  491.                 <table class="treeview" cellspacing="0" cellpadding="0">
  492.                 <tr>
  493.                     <td width="16">
  494.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  495.                     </td>
  496.                     <td width="16">
  497.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  498.                     </td>
  499.                     <td width="16" align=top class="defaultcursor" nowrap>
  500.                         <a name="<%= objPP.ID & "_" %>" href="pages/pubpoints/pubpoint_status.asp?server=<%= g_strQueryStringServer %>&ppID=<%= strPPID %>" target="frameDetails" border="0" alt="<%= Server.HTMLEncode( strPPName ) %>">
  501.                             <img src="<% SelectIcon CBool( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_ON_DEMAND <> dwPPType ), FALSE, bStarted, bStreamEnded, bAllowingConnections, bInError %>" border="0" width="16" align=bottom alt="<%= strAltText %>" title="<%= strAltText %>"></a>
  502.                     </td>
  503.                     <td align="left" width="4">
  504.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  505.                     </td>
  506.                     <td colspan=1 class="defaultcursor" nowrap>
  507.                         <div class="treeview" nowrap>
  508.                         <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %> name="<%= objPP.ID %>" href="pages/pubpoints/pubpoint_status.asp?server=<%= g_strQueryStringServer %>&ppID=<%= SafeEscape( strPPID ) %>" target="frameDetails" border="0" alt="<%= strAltText %>" title="<%= strAltText %>"> <%
  509.                           Response.Write( SpacesToNonbreak( Server.HTMLEncode( ConvertPPName( strPPName, dwPPType ) ) ) ) %> </a>
  510.                         </div>
  511.                     </td>
  512.                 </tr>
  513.                 </table>
  514.             </td>
  515.         </tr>
  516.         <%
  517.                 end if  ' was bcast or od objPP
  518.             next    ' on to next objPP
  519.           
  520. '******************************* end of cache / proxy *******************************
  521.           
  522.             
  523.         end if  'bCacheEnabled
  524. end if ' bRunningDotNetAdvServer %>
  525.         <tr>
  526.             <td align="left" valign="top" colspan="3">
  527.                 <table class="treeview" border="0" cellspacing="0" cellpadding="0" cols="4">
  528.                 <tr>
  529.                     <td width="16">
  530.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  531.                     </td>
  532.                     <td width="16" nowrap>
  533.                         <a title="<%= Server.HTMLEncode( L_PP_TEXT ) %>" name="pubpoints_" href="pages/pubpoints/pubpoint_collection.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"><%
  534.                         %><img src="img/ppt_coll_16.gif" border="0" alt="<%= Server.HTMLEncode( L_CONFIGALLPP_TEXT ) %>" ></a>
  535.                     </td>
  536.                     <td align="left" width="4">
  537.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  538.                     </td>
  539.                     <td width="16" colspan="2" nowrap>
  540.                         <div class="treeview" nowrap>
  541.                             <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %> title="<%= SpacesToNonbreak( Server.HTMLEncode( L_PP_TEXT ) ) %>" id="<%= Server.HTMLEncode( L_PP_TEXT ) %>" name="pubpoints" href="pages/pubpoints/pubpoint_collection.asp?server=<%= g_strQueryStringServer %>" target="frameDetails"> <%
  542.                                 Response.Write( SpacesToNonbreak( Server.HTMLEncode( L_PP_TEXT ) ) ) %> </a>
  543.                         </div>
  544.                     </td>
  545.                 </tr>
  546.                 </table>
  547.             </td>
  548.         </tr>
  549.         <%
  550.             dwNumPP = g_objServer.PublishingPoints.Count
  551.             
  552.             i = 0
  553.             for i = 0 to dwNumPP - 1
  554.                 Set objPP = g_objServer.PublishingPoints.Item( i )
  555.                 dwPPType = objPP.Type
  556.                 dwPPStatus = objPP.Status
  557.  
  558.                 if( WMS_PUBLISHING_POINT_TYPE_ON_DEMAND = dwPPType ) or ( WMS_PUBLISHING_POINT_TYPE_BROADCAST = dwPPType ) then
  559.                     bBroadcast = ( WMS_PUBLISHING_POINT_TYPE_ON_DEMAND <> dwPPType )
  560.                     strPPName = trim( objPP.Name )
  561.                     strPPID = objPP.ID
  562.                     bPush = CBool( 0 = strcomp( Left( objPP.Path, 5 ), "push:" ) )
  563.                     
  564.                     bAllowingConnections = CBool( objPP.AllowClientsToConnect )
  565.                     
  566.                     if( WMS_PUBLISHING_POINT_TYPE_ON_DEMAND = dwPPType ) then
  567.                         bStarted = FALSE
  568.                         bStreamEnded = FALSE
  569.                         bInError = CBool( WMS_PUBLISHING_POINT_ERROR_CRITICAL and objPP.Status ) or _
  570.                                    CBool( WMS_PUBLISHING_POINT_ERROR and objPP.Status )
  571.                     else
  572.                         bStarted = CBool( WMS_BROADCAST_PUBLISHING_POINT_STARTED and objPP.BroadcastStatus )
  573.                         bInError = CBool( WMS_PUBLISHING_POINT_ERROR_CRITICAL and objPP.Status ) or _
  574.                                    CBool( WMS_PUBLISHING_POINT_ERROR and objPP.Status )
  575.                         if( bStarted and bAllowingConnections and not bInError) then
  576.                             bStreamEnded = BcastPPStartedStreamEnded( objPP )
  577.                         end if
  578.                     end if
  579.  
  580.                     strConvertedPPName = strPPName
  581.                     if( 0 = StrComp( "/", strPPName, vbTextCompare ) ) then
  582.                         strConvertedPPName = L_DEFAULTPPNAME_TEXT
  583.                     end if
  584.                     if( bBroadcast ) then
  585.                         if( bPush ) then
  586.                             strAltText = InsertPPName( strConvertedPPName, L_CONFIGBCPUSHPP_TEXT )
  587.                         else
  588.                             strAltText = InsertPPName( strConvertedPPName, L_CONFIGBCPP_TEXT )
  589.                         end if
  590.                         
  591.                         if( bStarted ) then
  592.                             if( FALSE = bAllowingConnections ) then
  593.                                 strAltText = FormatStatusString( strAltText, L_STARTEDBUTDENYING_TEXT )
  594.                             else
  595.                                 strAltText = FormatStatusString( strAltText, L_PPISSTARTED_TEXT )
  596.                             end if
  597.                         else
  598.                             strAltText = FormatStatusString( strAltText, L_PPISSTOPPED_TEXT )
  599.                         end if
  600.                     else
  601.                         strAltText = InsertPPName( strConvertedPPName, L_CONFIGODPP_TEXT )
  602.                         if( FALSE = bAllowingConnections ) then
  603.                             strAltText = FormatStatusString( strAltText, L_DENYING_TEXT )
  604. '                        else
  605. '                            strAltText = FormatStatusString( strAltText, L_ALLOWING_TEXT )
  606.                         end if
  607.                     end if
  608.                         %>
  609.         <tr>
  610.             <td align="left" valign="top" colspan=4>
  611.                 <table class="treeview" border="0" cellspacing="0" cellpadding="0">
  612.                 <tr>
  613.                     <td width="16">
  614.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  615.                     </td>
  616.                     <td width="16">
  617.                         <img src="pages/img/spacer_.gif" height="1" width="16">
  618.                     </td>
  619.                     <td width="16" align="top" nowrap>
  620.                         <a title="<%= Server.HTMLEncode( strConvertedPPName ) %>" name="<%= objPP.ID & "_" %>" href="pages/pubpoints/pubpoint_status.asp?server=<%= g_strQueryStringServer %>&ppID=<%= SafeEscape( strPPID ) %>" target="frameDetails" border="0" alt="<%= strAltText %>">
  621.                             <img src="<% SelectIcon bBroadcast, bPush, bStarted, bStreamEnded, bAllowingConnections, bInError %>" border="0" width="16" align=bottom alt="<%= strAltText %>"></a>
  622.                     </td>
  623.                     <td align="left" width="4">
  624.                         <img src="pages/img/spacer_.gif" height="1" width="4">
  625.                     </td>
  626.                     <td colspan=1 nowrap>
  627.                         <div class="treeview" nowrap>
  628.                             <a <% if brMSIE = g_dwBrowserType then %>tabindex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %> <% end if %> name="<%= objPP.ID %>" href="pages/pubpoints/pubpoint_status.asp?server=<%= g_strQueryStringServer %>&ppID=<%= SafeEscape( strPPID ) %>" target="frameDetails" border="0" alt="<%= strAltText %>" title="<%= strAltText %>"> <%
  629.                             %><%= Server.HTMLEncode( strConvertedPPName ) %> </a>
  630.                         </div>
  631.                     </td>
  632.                 </tr>
  633.                 </table>
  634.             </td>
  635.         </tr>
  636.         <%
  637.                 end if  ' was bcast or od objPP
  638.             next    ' on to next objPP
  639.         %>
  640.         </table>
  641.     </td>
  642. </tr>
  643. </table>
  644. </body>
  645. </html>